r = 1

gotdagger = 0
gothelmet = 0
gottreasure = 0
gotshield = 0
gotstatue = 0
gotorboflife = 0
gotorbofdeath = 0
troll = 5
miner = 3
skeleton = 1
wizard = 1
doctor = 1

SCREEN 12
COLOR 2, 0
CLS

DIM SHARED DOOM AS DOUBLE
Minutes = 59
Seconds = 59
GameTime = Minutes * 60 + Seconds

DIM directions(1 TO 70) AS STRING
directions(1) = "NORTH"
directions(2) = "NORTH OR SOUTH"
directions(3) = "WEST OR SOUTH"
directions(4) = "NORTH, SOUTH, EAST, WEST"
directions(5) = "NORTH"
directions(6) = "SOUTH OR EAST"
directions(7) = "NORTH, SOUTH, EAST, WEST"
directions(8) = "NORTH OR WEST"
directions(9) = "NORTH, EAST, OR WEST"
directions(10) = "NORTH, EAST, OR WEST"
directions(11) = "NORTH OR EAST"
directions(12) = "NORTH, SOUTH, OR EAST"
directions(13) = "NORTH, SOUTH, EAST, OR WEST"
directions(14) = "NORTH, SOUTH, EAST, OR WEST"
directions(15) = "NORTH, SOUTH, OR EAST"
directions(16) = "NORTH, SOUTH, EAST, OR WEST"
directions(17) = "NORTH, SOUTH, EAST, OR WEST"
directions(18) = "NORTH, SOUTH, OR WEST"
directions(19) = "NORTH, SOUTH, OR WEST"
directions(20) = "NORTH, SOUTH, EAST, OR WEST"
directions(21) = "NORTH, SOUTH, EAST, OR WEST"
directions(22) = "NORTH, SOUTH, OR EAST"
directions(23) = "EAST OR SOUTH"
directions(24) = "NORTH, SOUTH, EAST, OR WEST"
directions(25) = "EAST, WEST, OR SOUTH"
directions(26) = "WEST OR SOUTH"
directions(27) = "NORTH OR SOUTH"
directions(28) = "NORTH, SOUTH, EAST, OR WEST"
directions(29) = "NORTH OR EAST"
directions(30) = "WEST OR SOUTH"
directions(31) = "NORTH OR EAST"
directions(32) = "NORTH OR SOUTH"
directions(33) = "SOUTH"
directions(34) = "EAST OR WEST"
directions(35) = "EAST OR WEST"
directions(36) = "WEST OR SOUTH"
directions(37) = "NORTH OR EAST"
directions(38) = "WEST OR SOUTH"
directions(39) = "NORTH OR SOUTH"
directions(40) = "NORTH, SOUTH, OR EAST"
directions(41) = "NORTH OR WEST"
directions(42) = "NORTH OR WEST"
directions(43) = "NORTH OR SOUTH"
directions(44) = "SOUTH"
directions(45) = "NORTH OR SOUTH"
directions(46) = "EAST OR SOUTH"
directions(47) = "EAST OR WEST"
directions(48) = "NORTH, WEST, OR EAST"
directions(49) = "NORTH OR SOUTH"
directions(50) = "NORTH, SOUTH, OR WEST"
directions(51) = "NORTH OR SOUTH"
directions(52) = "WEST OR SOUTH"
directions(53) = "EAST"
directions(54) = "EAST OR WEST"
directions(55) = "EAST OR WEST"
directions(56) = "NORTH, SOUTH, OR EAST"
directions(57) = "NORTH"
directions(58) = "EAST OR SOUTH"
directions(59) = "WEST"
directions(60) = "WEST OR NORTH"
directions(61) = "NORTH, SOUTH, OR EAST"
directions(62) = "NORTH OR SOUTH"
directions(63) = "EAST OR SOUTH"
directions(64) = "NORTH OR WEST"
directions(65) = "SOUTH"
directions(66) = "EAST OR WEST"
directions(67) = "WEST OR SOUTH"
directions(68) = "NORTH OR SOUTH"
directions(69) = "NORTH OR WEST"
directions(70) = "EAST"

PRINT ""
PRINT "A letter from Doctor L.C. Hebert"
PRINT ""
PRINT "______________________________________________________________________"
PRINT "|If you are reading this letter, then you know of my fate. I have    |"
PRINT "|spent most of my time exploring the underground caves within the    |"
PRINT "|hillside. Rumor's of strange creatures and that of traesure has     |"
PRINT "|struck my interest. I am writing this letter before I enter. So     |"
PRINT "|now that you are reading this, shows you that I've been missing for |"
PRINT "|two weeks. I look forward to you meeting me or coming to my aid.    |"
PRINT "|Or if I'm dead, well then...leave without me I guess. So with that  |"
PRINT "|said happy adventures.                                              |"
PRINT "|                                                                    |"
PRINT "|P.S. You must collect all treasures in order to escape.             |"
PRINT "_____________________________________________________________________|"
DO: LOOP UNTIL INKEY$ <> ""


DO: LOOP UNTIL INKEY$ <> ""
DOOM = TIMER(0.001) + GameTime 'change this to to desied time for the game to run

DO
    CLS
    PRINT
    PRINT
    PRINT "    _____                                                              _____"
    PRINT "  /\'   `/\                                                          /\'   `/\"
    PRINT " / /\   /\ \                                                        / /\   /\ \"
    PRINT ". /__\ /__\ .               Underground Adventure                  . /__\ /__\ ."
    PRINT "|___  ^  ___|                                                      |___  ^  ___|"
    PRINT "    | - |                         Coded by                             | _ |"
    PRINT "     \ /                         D.B. Taylor                            \ / "
    PRINT ""
    PRINT "                             Copyright (c) 2016"
    PRINT ""
    PRINT SPACE$(38);
    IF INSTR(directions(r), "NORTH") THEN PRINT "N" ELSE PRINT
    PRINT "*---------------------------------* ";
    IF INSTR(directions(r), "WEST") THEN PRINT "W"; ELSE PRINT " ";
    PRINT " + ";
    IF INSTR(directions(r), "EAST") THEN PRINT "E"; ELSE PRINT " ";
    PRINT " *------------------------------------*"
    PRINT SPACE$(38);
    IF INSTR(directions(r), "SOUTH") THEN PRINT "S" ELSE PRINT
    PRINT
    PRINT "If you are stuck just type HELP."
    PRINT
    GOSUB ROOM
    GOSUB parser
LOOP

ROOM:
IF r = 1 THEN: GOSUB r1
IF r = 2 THEN: GOSUB r2
IF r = 3 THEN: GOSUB r3
IF r = 4 THEN: GOSUB r4
IF r = 5 THEN: GOSUB r5
IF r = 6 THEN: GOSUB r6
IF r = 7 THEN: GOSUB r7
IF r = 8 THEN: GOSUB r8
IF r = 9 THEN: GOSUB r9
IF r = 10 THEN: GOSUB r10
IF r = 11 THEN: GOSUB r11
IF r = 12 THEN: GOSUB r12
IF r = 13 THEN: GOSUB r13
IF r = 14 THEN: GOSUB r14
IF r = 15 THEN: GOSUB r15
IF r = 16 THEN: GOSUB r16
IF r = 17 THEN: GOSUB r17
IF r = 18 THEN: GOSUB r18
IF r = 19 THEN: GOSUB r19
IF r = 20 THEN: GOSUB r20
IF r = 21 THEN: GOSUB r21
IF r = 22 THEN: GOSUB r22
IF r = 23 THEN: GOSUB r23
IF r = 24 THEN: GOSUB r24
IF r = 25 THEN: GOSUB r25
IF r = 26 THEN: GOSUB r26
IF r = 27 THEN: GOSUB r27
IF r = 28 THEN: GOSUB r28
IF r = 29 THEN: GOSUB r29
IF r = 30 THEN: GOSUB r30
IF r = 31 THEN: GOSUB r31
IF r = 32 THEN: GOSUB r32
IF r = 33 THEN: GOSUB r33
IF r = 34 THEN: GOSUB r34
IF r = 35 THEN: GOSUB r35
IF r = 36 THEN: GOSUB r36
IF r = 37 THEN: GOSUB r37
IF r = 38 THEN: GOSUB r38
IF r = 39 THEN: GOSUB r39
IF r = 40 THEN: GOSUB r40
IF r = 41 THEN: GOSUB r41
IF r = 42 THEN: GOSUB r42
IF r = 43 THEN: GOSUB r43
IF r = 44 THEN: GOSUB r44
IF r = 45 THEN: GOSUB r45
IF r = 46 THEN: GOSUB r46
IF r = 47 THEN: GOSUB r47
IF r = 48 THEN: GOSUB r48
IF r = 49 THEN: GOSUB r49
IF r = 50 THEN: GOSUB r50
IF r = 51 THEN: GOSUB r51
IF r = 52 THEN: GOSUB r52
IF r = 53 THEN: GOSUB r53
IF r = 54 THEN: GOSUB r54
IF r = 55 THEN: GOSUB r55
IF r = 56 THEN: GOSUB r56
IF r = 57 THEN: GOSUB r57
IF r = 58 THEN: GOSUB r58
IF r = 59 THEN: GOSUB r59
IF r = 60 THEN: GOSUB r60
IF r = 61 THEN: GOSUB r61
IF r = 62 THEN: GOSUB r62
IF r = 63 THEN: GOSUB r63
IF r = 64 THEN: GOSUB r64
IF r = 65 THEN: GOSUB r65
IF r = 66 THEN: GOSUB r66
IF r = 67 THEN: GOSUB r67
IF r = 68 THEN: GOSUB r68
IF r = 69 THEN: GOSUB r69
IF r = 70 THEN: GOSUB r70
RETURN

parser:
PRINT "> ";
cmd$ = GrabInput
cmd$ = LTRIM$(RTRIM$(UCASE$(cmd$)))
IF cmd$ = "END" OR cmd$ = "QUIT" OR cmd$ = "EXIT" OR cmd$ = "Q" THEN
    END
END IF
IF cmd$ = "HELP" OR cmd$ = "H" OR cmd$ = "?" THEN
    CLS
    PRINT "HERE ARE SOME BASIC COMMANDS THAT CAN BE USED IN THE GAME..."
    PRINT
    PRINT "NORTH, EAST ,SOUTH, AND WEST - MOVE TO AN AVAILABLE LOCATION"
    PRINT "EXAMINE (OBJECT)             - EXAMINE AN OBJECT"
    PRINT "USE (OBJECT)                 - USE AN OBJECT"
    PRINT "TAKE (OBJECT)                - TAKE OR MOVE AN OBJECT"
    PRINT "TALK                         - TALK TO SOMEONE"
    PRINT "KILL                         - KILL AT YOUR OWN RISK"
    PRINT "INVENTORY                    - VIEW YOUR INVENTORY"
    PRINT "HELP                         - VIEW THIS SCREEN"
    PRINT "END                          - END GAME"
    PRINT
    PRINT "PRESS ANY KEY...": SLEEP
    DO: LOOP UNTIL INKEY$ = ""
    DO: LOOP UNTIL INKEY$ <> ""
END IF
IF cmd$ = "INVENTORY" OR cmd$ = "INV" OR cmd$ = "ITEMS" OR cmd$ = "I" THEN
    CLS
    PRINT "INVENTORY..."
    PRINT
    IF gotdagger = 1 THEN: PRINT "A silver Dagger"
    IF gothelmet = 1 THEN: PRINT "A golden Helmet"
    IF gottreasure = 1 THEN: PRINT "A collection of coins and diamonds"
    IF gotshield = 1 THEN: PRINT "A jewel encrusted Shield"
    IF gotstatue = 1 THEN: PRINT "A Statue of a serpent"
    IF gotorboflife = 1 THEN: PRINT "The glowing blue Orb of Life"
    IF gotorbofdeath = 1 THEN: PRINT "The glowing red Orb of Death"
    PRINT
    PRINT "PRESS ANY KEY..."
    DO: LOOP UNTIL INKEY$ = ""
    DO: LOOP UNTIL INKEY$ <> ""
END IF
IF cmd$ = "GO NORTH" OR cmd$ = "NORTH" OR cmd$ = "N" THEN
    IF r = 1 THEN: r = 2: GOTO moved
    IF r = 2 THEN: r = 3: GOTO moved
    IF r = 5 THEN: r = 4: GOTO moved
    IF r = 4 THEN: r = 6: GOTO moved
    IF r = 42 THEN: r = 43: GOTO moved
    IF r = 43 THEN: r = 44: GOTO moved
    IF r = 41 THEN: r = 40: GOTO moved
    IF r = 40 THEN: r = 39: GOTO moved
    IF r = 39 THEN: r = 38: GOTO moved
    IF r = 37 THEN: r = 36: GOTO moved
    IF r = 8 THEN: r = 7: GOTO moved
    IF r = 7 THEN: r = 18: GOTO moved
    IF r = 18 THEN: r = 19: GOTO moved
    IF r = 19 THEN: r = 26: GOTO moved
    IF r = 9 THEN: r = 14: GOTO moved
    IF r = 14 THEN: r = 17: GOTO moved
    IF r = 17 THEN: r = 20: GOTO moved
    IF r = 20 THEN: r = 25: GOTO moved
    IF r = 11 THEN: r = 12: GOTO moved
    IF r = 12 THEN: r = 15: GOTO moved
    IF r = 15 THEN: r = 22: GOTO moved
    IF r = 22 THEN: r = 23: GOTO moved
    IF r = 10 THEN: r = 13: GOTO moved
    IF r = 13 THEN: r = 16: GOTO moved
    IF r = 16 THEN: r = 21: GOTO moved
    IF r = 21 THEN: r = 24: GOTO moved
    IF r = 24 THEN: r = 27: GOTO moved
    IF r = 27 THEN: r = 28: GOTO moved
    IF r = 28 THEN: r = 45: GOTO moved
    IF r = 45 THEN: r = 46: GOTO moved
    IF r = 29 THEN: r = 30: GOTO moved
    IF r = 31 THEN: r = 32: GOTO moved
    IF r = 32 THEN: r = 33: GOTO moved
    IF r = 69 THEN: r = 68: GOTO moved
    IF r = 68 THEN: r = 67: GOTO moved
    IF r = 60 THEN: r = 61: GOTO moved
    IF r = 61 THEN: r = 62: GOTO moved
    IF r = 62 THEN: r = 63: GOTO moved
    IF r = 64 THEN: r = 65: GOTO moved
    IF r = 57 THEN: r = 56: GOTO moved
    IF r = 56 THEN: r = 58: GOTO moved
    IF r = 48 THEN: r = 49: GOTO moved
    IF r = 49 THEN: r = 50: GOTO moved
    IF r = 50 THEN: r = 51: GOTO moved
    IF r = 51 THEN: r = 52: GOTO moved
END IF
IF cmd$ = "GO EAST" OR cmd$ = "EAST" OR cmd$ = "E" THEN
    IF r = 11 THEN: r = 10: GOTO moved
    IF r = 10 THEN: r = 9: GOTO moved
    IF r = 9 THEN: r = 8: GOTO moved
    IF r = 12 THEN: r = 13: GOTO moved
    IF r = 13 THEN: r = 14: GOTO moved
    IF r = 14 THEN: r = 7: GOTO moved
    IF r = 7 THEN: r = 4: GOTO moved
    IF r = 4 THEN: r = 3: GOTO moved
    IF r = 15 THEN: r = 16: GOTO moved
    IF r = 16 THEN: r = 17: GOTO moved
    IF r = 17 THEN: r = 18: GOTO moved
    IF r = 22 THEN: r = 21: GOTO moved
    IF r = 21 THEN: r = 20: GOTO moved
    IF r = 20 THEN: r = 19: GOTO moved
    IF r = 23 THEN: r = 24: GOTO moved
    IF r = 24 THEN: r = 25: GOTO moved
    IF r = 25 THEN: r = 26: GOTO moved
    IF r = 6 THEN: r = 41: GOTO moved
    IF r = 40 THEN: r = 42: GOTO moved
    IF r = 37 THEN: r = 38: GOTO moved
    IF r = 29 THEN: r = 28: GOTO moved
    IF r = 28 THEN: r = 34: GOTO moved
    IF r = 34 THEN: r = 35: GOTO moved
    IF r = 35 THEN: r = 36: GOTO moved
    IF r = 31 THEN: r = 30: GOTO moved
    IF r = 70 THEN: r = 69: GOTO moved
    IF r = 46 THEN: r = 47: GOTO moved
    IF r = 47 THEN: r = 48: GOTO moved
    IF r = 48 THEN: r = 60: GOTO moved
    IF r = 61 THEN: r = 66: GOTO moved
    IF r = 66 THEN: r = 67: GOTO moved
    IF r = 56 THEN: r = 55: GOTO moved
    IF r = 55 THEN: r = 54: GOTO moved
    IF r = 54 THEN: r = 50: GOTO moved
    IF r = 58 THEN: r = 59: GOTO moved
    IF r = 63 THEN: r = 64: GOTO moved
    IF r = 53 THEN: r = 52: GOTO moved
    IF r = 70 THEN: r = 69: GOTO moved
END IF
IF cmd$ = "GO SOUTH" OR cmd$ = "SOUTH" OR cmd$ = "S" THEN
    IF r = 23 THEN: r = 22: GOTO moved
    IF r = 22 THEN: r = 15: GOTO moved
    IF r = 15 THEN: r = 12: GOTO moved
    IF r = 12 THEN: r = 11: GOTO moved
    IF r = 46 THEN: r = 45: GOTO moved
    IF r = 45 THEN: r = 28: GOTO moved
    IF r = 28 THEN: r = 27: GOTO moved
    IF r = 27 THEN: r = 24: GOTO moved
    IF r = 24 THEN: r = 21: GOTO moved
    IF r = 21 THEN: r = 16: GOTO moved
    IF r = 16 THEN: r = 13: GOTO moved
    IF r = 13 THEN: r = 10: GOTO moved
    IF r = 25 THEN: r = 20: GOTO moved
    IF r = 20 THEN: r = 17: GOTO moved
    IF r = 17 THEN: r = 14: GOTO moved
    IF r = 14 THEN: r = 9: GOTO moved
    IF r = 26 THEN: r = 19: GOTO moved
    IF r = 19 THEN: r = 18: GOTO moved
    IF r = 18 THEN: r = 7: GOTO moved
    IF r = 7 THEN: r = 8: GOTO moved
    IF r = 6 THEN: r = 4: GOTO moved
    IF r = 4 THEN: r = 5: GOTO moved
    IF r = 3 THEN: r = 2: GOTO moved
    IF r = 2 THEN: r = 1: GOTO moved
    IF r = 38 THEN: r = 39: GOTO moved
    IF r = 39 THEN: r = 40: GOTO moved
    IF r = 40 THEN: r = 41: GOTO moved
    IF r = 44 THEN: r = 43: GOTO moved
    IF r = 43 THEN: r = 42: GOTO moved
    IF r = 36 THEN: r = 37: GOTO moved
    IF r = 30 THEN: r = 29: GOTO moved
    IF r = 33 THEN: r = 32: GOTO moved
    IF r = 32 THEN: r = 31: GOTO moved
    IF r = 67 THEN: r = 68: GOTO moved
    IF r = 68 THEN: r = 69: GOTO moved
    IF r = 58 THEN: r = 56: GOTO moved
    IF r = 56 THEN: r = 57: GOTO moved
    IF r = 52 THEN: r = 51: GOTO moved
    IF r = 51 THEN: r = 50: GOTO moved
    IF r = 50 THEN: r = 49: GOTO moved
    IF r = 49 THEN: r = 48: GOTO moved
    IF r = 63 THEN: r = 62: GOTO moved
    IF r = 62 THEN: r = 61: GOTO moved
    IF r = 61 THEN: r = 60: GOTO moved
    IF r = 65 THEN: r = 64: GOTO moved
END IF
IF cmd$ = "GO WEST" OR cmd$ = "WEST" OR cmd$ = "W" THEN
    IF r = 8 THEN: r = 9: GOTO moved
    IF r = 9 THEN: r = 10: GOTO moved
    IF r = 10 THEN: r = 11: GOTO moved
    IF r = 3 THEN: r = 4: GOTO moved
    IF r = 4 THEN: r = 7: GOTO moved
    IF r = 7 THEN: r = 14: GOTO moved
    IF r = 14 THEN: r = 13: GOTO moved
    IF r = 13 THEN: r = 12: GOTO moved
    IF r = 18 THEN: r = 17: GOTO moved
    IF r = 17 THEN: r = 16: GOTO moved
    IF r = 16 THEN: r = 15: GOTO moved
    IF r = 19 THEN: r = 20: GOTO moved
    IF r = 20 THEN: r = 21: GOTO moved
    IF r = 21 THEN: r = 22: GOTO moved
    IF r = 26 THEN: r = 25: GOTO moved
    IF r = 25 THEN: r = 24: GOTO moved
    IF r = 24 THEN: r = 23: GOTO moved
    IF r = 42 THEN: r = 40: GOTO moved
    IF r = 38 THEN: r = 37: GOTO moved
    IF r = 36 THEN: r = 35: GOTO moved
    IF r = 35 THEN: r = 34: GOTO moved
    IF r = 34 THEN: r = 28: GOTO moved
    IF r = 28 THEN: r = 29: GOTO moved
    IF r = 30 THEN: r = 31: GOTO moved
    IF r = 69 THEN: r = 70: GOTO moved
    IF r = 60 THEN: r = 48: GOTO moved
    IF r = 48 THEN: r = 47: GOTO moved
    IF r = 47 THEN: r = 46: GOTO moved
    IF r = 67 THEN: r = 66: GOTO moved
    IF r = 66 THEN: r = 61: GOTO moved
    IF r = 50 THEN: r = 54: GOTO moved
    IF r = 54 THEN: r = 55: GOTO moved
    IF r = 55 THEN: r = 56: GOTO moved
    IF r = 59 THEN: r = 58: GOTO moved
    IF r = 64 THEN: r = 63: GOTO moved
    IF r = 52 THEN: r = 53: GOTO moved
    IF r = 41 THEN: r = 6: GOTO moved
END IF

IF (cmd$ = "LUBOK") THEN
    CLS
    PRINT "The once protector of the Trolls. It is said, if you kill one"
    PRINT "Lubok will take revenge upon you."
    DO: LOOP UNTIL INKEY$ = ""
    DO: LOOP UNTIL INKEY$ <> ""
END IF

'''''''''''''''''''''''''''''''''''''''''''''''''''
IF (cmd$ = "EXAMINE DAGGER") AND gotdagger = 1 THEN
    CLS
    PRINT "A golden dagger. Stained with blood, but the shine of gold"
    PRINT "cuts through the dirt and grime."
    DO: LOOP UNTIL INKEY$ = ""
    DO: LOOP UNTIL INKEY$ <> ""
END IF
IF (cmd$ = "EXAMINE HELMET") AND gothelmet = 1 THEN
    CLS
    PRINT "The helmet of a long since defeated warrior. Dented up from"
    PRINT "close combat no less."
    DO: LOOP UNTIL INKEY$ = ""
    DO: LOOP UNTIL INKEY$ <> ""
END IF
IF (cmd$ = "EXAMINE TREASURE") AND gottreasure = 1 THEN
    CLS
    PRINT "A small wooden box, holding a collection of coins and jewels."
    DO: LOOP UNTIL INKEY$ = ""
    DO: LOOP UNTIL INKEY$ <> ""
END IF
IF (cmd$ = "EXAMINE SHIELD") AND gotshield = 1 THEN
    CLS
    PRINT "Made out of a mixture of Iron and Wood. You are surprised this item"
    PRINT "has survived begin under the Earth for so long."
    DO: LOOP UNTIL INKEY$ = ""
    DO: LOOP UNTIL INKEY$ <> ""
END IF
IF (cmd$ = "EXAMINE STATUE") AND gotstatue = 1 THEN
    CLS
    PRINT "A golden statue, crafted by an unknown artist, and made out of gold."
    PRINT "It's made in the imagine of a strange creature centuries ago."
    DO: LOOP UNTIL INKEY$ <> ""
END IF
IF (cmd$ = "EXAMINE ORB OF LIFE") AND gotorboflife = 1 THEN
    CLS
    PRINT "A smooth orb, made out of an element unknown to you. It glow's with"
    PRINT "and errie glow and just by touching it, you feel a strange power over"
    PRINT "come you."
    DO: LOOP UNTIL INKEY$ = ""
    DO: LOOP UNTIL INKEY$ <> ""
END IF
IF (cmd$ = "EXAMINE ORB OF DEATH") AND gotorbofdeath = 1 THEN
    CLS
    PRINT "Rough to the tough, as if you are holding a ball made of sand. It's"
    PRINT "cold to the touch and makes you feel weak. It pulsates a strange red"
    PRINT "glow."
    DO: LOOP UNTIL INKEY$ = ""
    DO: LOOP UNTIL INKEY$ <> ""
END IF
''''''''''''''''''''''''''''''''''''''''''
IF (cmd$ = "EXAMINE TROLL") AND r = 6 THEN
    CLS
    PRINT "He is sitting on the cold ground. His eye's are a strange shade of"
    PRINT "yellow. His clothes are made up of small animal pelts."
    DO: LOOP UNTIL INKEY$ = ""
    DO: LOOP UNTIL INKEY$ <> ""
END IF
IF (cmd$ = "TALK TO TROLL") AND r = 6 THEN
    CLS
    PRINT "Another day. You second person I saw here."
    DO: LOOP UNTIL INKEY$ = ""
    DO: LOOP UNTIL INKEY$ <> ""
END IF
IF (cmd$ = "SECOND PERSON?") AND r = 6 THEN
    CLS
    PRINT "Yes, other older. He came here. Me warn him. He no listen. He go"
    PRINT "in darkness. Don't see again."
    DO: LOOP UNTIL INKEY$ = ""
    DO: LOOP UNTIL INKEY$ <> ""
END IF
IF (cmd$ = "KILL TROLL") AND r = 6 THEN
    CLS
    GOTO gameover2:
    DO: LOOP UNTIL INKEY$ = ""
    DO: LOOP UNTIL INKEY$ <> ""
END IF
'''''''''''''''''''''''''''''''''''''''''''
IF (cmd$ = "EXAMINE TROLL") AND r = 15 THEN
    CLS
    PRINT "Sitting on a rock and seems to be unnerved about something. He"
    PRINT "doesn't seem to look away from the ground."
    DO: LOOP UNTIL INKEY$ = ""
    DO: LOOP UNTIL INKEY$ <> ""
END IF
IF (cmd$ = "TALK TO TROLL") AND r = 15 THEN
    CLS
    PRINT "No talk..."
    DO: LOOP UNTIL INKEY$ = ""
    DO: LOOP UNTIL INKEY$ <> ""
END IF
IF (cmd$ = "KILL TROLL") AND r = 15 THEN
    CLS
    GOTO gameover3:
    DO: LOOP UNTIL INKEY$ = ""
    DO: LOOP UNTIL INKEY$ <> ""
END IF
'''''''''''''''''''''''''''''''''''''''''''
IF (cmd$ = "EXAMINE TROLL") AND r = 33 THEN
    CLS
    PRINT "This strange creature seems to be humming a tune. Though it mostly"
    PRINT "hasn't been heard by the ears of a human before."
    DO: LOOP UNTIL INKEY$ = ""
    DO: LOOP UNTIL INKEY$ <> ""
END IF
IF (cmd$ = "TALK TO TROLL") AND r = 33 THEN
    CLS
    PRINT "You want answers? Must have question for me to answer. If you ask"
    PRINT "it right."
    DO: LOOP UNTIL INKEY$ = ""
    DO: LOOP UNTIL INKEY$ <> ""
END IF
IF (cmd$ = "ASK ABOUT DOCTOR") AND r = 33 THEN
    CLS
    PRINT "You looking for Doctor? Yes, I seen him. He went East, he went for"
    PRINT "Orbs. Orbs is he wanting."
    DO: LOOP UNTIL INKEY$ = ""
    DO: LOOP UNTIL INKEY$ <> ""
END IF
IF (cmd$ = "ASK ABOUT ORBS") AND r = 33 THEN
    CLS
    PRINT "Orbs bring life and death. Most rare. They came before us. They made"
    PRINT "them, to control us. They died, now we have them."
    DO: LOOP UNTIL INKEY$ = ""
    DO: LOOP UNTIL INKEY$ <> ""
END IF
IF (cmd$ = "KILL TROLL") AND r = 33 THEN
    CLS
    GOTO gameover4:
    DO: LOOP UNTIL INKEY$ = ""
    DO: LOOP UNTIL INKEY$ <> ""
END IF

'''''''''''''''''''''''''''''''''''''''''''
IF (cmd$ = "EXAMINE TROLL") AND r = 58 THEN
    CLS
    PRINT "This one seems to have had to much to drink. He dances a very odd"
    PRINT "dance. It's a shame he didn't share with me."
    DO: LOOP UNTIL INKEY$ = ""
    DO: LOOP UNTIL INKEY$ <> ""
END IF
IF (cmd$ = "TALK TO TROLL") AND r = 58 THEN
    CLS
    PRINT "No talk, just dance now."
    DO: LOOP UNTIL INKEY$ = ""
    DO: LOOP UNTIL INKEY$ <> ""
END IF
IF (cmd$ = "KILL TROLL") AND r = 58 THEN
    CLS
    GOTO gameover5:
    DO: LOOP UNTIL INKEY$ = ""
    DO: LOOP UNTIL INKEY$ <> ""
END IF
'''''''''''''''''''''''''''''''''''''''''''
IF (cmd$ = "EXAMINE TROLL") AND r = 68 THEN
    CLS
    PRINT "The troll is leaning against a pile of rocks."
    DO: LOOP UNTIL INKEY$ = ""
    DO: LOOP UNTIL INKEY$ <> ""
END IF
IF (cmd$ = "TALK TO TROLL") AND r = 68 THEN
    CLS
    PRINT "I'm busy..."
    DO: LOOP UNTIL INKEY$ = ""
    DO: LOOP UNTIL INKEY$ <> ""
END IF
IF (cmd$ = "HIT TROLL") AND r = 68 THEN
    CLS
    PRINT "Alright, alright, I hear voice from one like you. Injured...or dead."
    DO: LOOP UNTIL INKEY$ = ""
    DO: LOOP UNTIL INKEY$ <> ""
END IF
IF (cmd$ = "KILL TROLL") AND r = 68 THEN
    CLS
    GOTO gameover6:
    DO: LOOP UNTIL INKEY$ = ""
    DO: LOOP UNTIL INKEY$ <> ""
END IF
''''''''''''''''''''''''''''''''''''''''''
IF (cmd$ = "EXAMINE MINER") AND r = 2 THEN
    CLS
    PRINT "A tired old woman, wearing dusty coveralls, and holding a pickaxe."
    DO: LOOP UNTIL INKEY$ = ""
    DO: LOOP UNTIL INKEY$ <> ""
END IF
IF (cmd$ = "TALK TO MINER") AND r = 2 THEN
    CLS
    PRINT "Some say there's treasures in here? I don't know about that. I've"
    PRINT "been through these tunnels now for weeks and nothing. A guy found"
    PRINT "a gold cup, made him some money. I guess that's why we're here now."
    DO: LOOP UNTIL INKEY$ = ""
    DO: LOOP UNTIL INKEY$ <> ""
END IF
IF (cmd$ = "KILL MINER") AND r = 2 THEN
    CLS
    GOTO gameover7:
    DO: LOOP UNTIL INKEY$ = ""
    DO: LOOP UNTIL INKEY$ <> ""
END IF
'''''''''''''''''''''''''''''''''''''''''''
IF (cmd$ = "EXAMINE MINER") AND r = 42 THEN
    CLS
    PRINT "He doesn't seem to notice you. Just going about his business, hacking"
    PRINT "away at the wall."
    DO: LOOP UNTIL INKEY$ = ""
    DO: LOOP UNTIL INKEY$ <> ""
END IF
IF (cmd$ = "TALK TO MINER") AND r = 42 THEN
    CLS
    PRINT "Some people say this place is cursed. It drives the greed to the surface."
    PRINT "Makes people go mad with power and dreams of a better life. Those types"
    PRINT "are just fools. Miners like us, we don't let that stuff get to us. Though"
    PRINT "a throne would be nice."
    DO: LOOP UNTIL INKEY$ = ""
    DO: LOOP UNTIL INKEY$ <> ""
END IF
IF (cmd$ = "KILL MINER") AND r = 42 THEN
    CLS
    GOTO gameover8:
    DO: LOOP UNTIL INKEY$ = ""
    DO: LOOP UNTIL INKEY$ <> ""
END IF
'''''''''''''''''''''''''''''''''''''''''''
IF (cmd$ = "EXAMINE MINER") AND r = 45 THEN
    CLS
    PRINT "She appears to be on her break. Pickaxe leaning against the cave wall."
    PRINT "She sits on the ground and sips her coffee."
    DO: LOOP UNTIL INKEY$ = ""
    DO: LOOP UNTIL INKEY$ <> ""
END IF
IF (cmd$ = "TALK TO MINER") AND r = 45 THEN
    CLS
    PRINT "So far, I found myself a nice chunk of gold. I'll be able to finally"
    PRINT "get my son those books he's been wanting."
    DO: LOOP UNTIL INKEY$ = ""
    DO: LOOP UNTIL INKEY$ <> ""
END IF
IF (cmd$ = "ASK ABOUT BOOKS") AND r = 45 THEN
    CLS
    PRINT "He wants to be a Doctor. He's so fascinated with this place. Yesterday"
    PRINT "I had to ground him for going exploring while I was working. A kid could"
    PRINT "get killed in this place."
    DO: LOOP UNTIL INKEY$ = ""
    DO: LOOP UNTIL INKEY$ <> ""
END IF
IF (cmd$ = "KILL MINER") AND r = 45 THEN
    CLS
    GOTO gameover9:
    DO: LOOP UNTIL INKEY$ = ""
    DO: LOOP UNTIL INKEY$ <> ""
END IF
'''''''''''''''''''''''''''''''''''''''''''''
IF (cmd$ = "EXAMINE SKELTON") AND r = 52 THEN
    CLS
    PRINT "The old gray bones of a man or woman are embedded in the stone wall."
    PRINT "Just how this happened is unknown to you."
    DO: LOOP UNTIL INKEY$ = ""
    DO: LOOP UNTIL INKEY$ <> ""
END IF
IF (cmd$ = "TALK TO SKELETON") AND r = 52 THEN
    CLS
    PRINT "I'm dead. Leave me alone..."
    DO: LOOP UNTIL INKEY$ = ""
    DO: LOOP UNTIL INKEY$ <> ""
END IF
''''''''''''''''''''''''''''''''''''''''''''
IF (cmd$ = "EXAMINE WIZARD") AND r = 23 THEN
    CLS
    PRINT "A strange fellow stands before you. His arms are stretched out above"
    PRINT "his head and smile is upon his face."
    DO: LOOP UNTIL INKEY$ = ""
    DO: LOOP UNTIL INKEY$ <> ""
END IF
IF (cmd$ = "TALK TO WIZARD") AND r = 23 THEN
    CLS
    PRINT "Whatever you wish to ask me, speak."
    DO: LOOP UNTIL INKEY$ = ""
    DO: LOOP UNTIL INKEY$ <> ""
END IF
IF (cmd$ = "ASK ABOUT DOCTOR") AND r = 23 THEN
    CLS
    PRINT "I know not of what you speak of. But, if he is a human like you or I."
    PRINT "I'd say he's in search of the many treasures that cloud the mind. If"
    PRINT "you do find him, make sure he never returns. This place warps the mind."
    DO: LOOP UNTIL INKEY$ = ""
    DO: LOOP UNTIL INKEY$ <> ""
END IF
IF (cmd$ = "KILL WIZARD") AND r = 23 THEN
    CLS
    GOTO gameover:
    DO: LOOP UNTIL INKEY$ = ""
    DO: LOOP UNTIL INKEY$ <> ""
END IF
''''''''''''''''''''''''''''''''''''''''''''
IF (cmd$ = "EXAMINE UNCLE") AND r = 70 THEN
    CLS
    PRINT "Lying on the ground before you is the Doctor himself. He looks sick."
    PRINT "His eye's are sunken in and his skin is pale."
    DO: LOOP UNTIL INKEY$ = ""
    DO: LOOP UNTIL INKEY$ <> ""
END IF
IF (cmd$ = "TALK TO UNCLE") AND r = 70 THEN
    CLS
    PRINT "I'm not doing to well. This place...this world...it takes a lot out of"
    PRINT "you. There's an old story that once the blessed items are collected they"
    PRINT "can bring life to the dying."
    DO: LOOP UNTIL INKEY$ = ""
    DO: LOOP UNTIL INKEY$ <> ""
END IF
IF (cmd$ = "KILL UNCLE") AND r = 70 THEN
    CLS
    PRINT "I'm not going to do that."
    DO: LOOP UNTIL INKEY$ = ""
    DO: LOOP UNTIL INKEY$ <> ""
END IF
IF (cmd$ = "LEAVE UNCLE") AND r = 70 THEN
    CLS
    GOTO gameover1:
    DO: LOOP UNTIL INKEY$ = ""
    DO: LOOP UNTIL INKEY$ <> ""
END IF

''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
IF (cmd$ = "TAKE DAGGER") AND gotdagger = 0 AND r = 16 THEN
    gotdagger = 1
    PRINT "You have taken the Dagger."
END IF
IF (cmd$ = "TAKE HELMET") AND gothelmet = 0 AND r = 29 THEN
    gothelmet = 1
    PRINT "You have collected the Helmet of the fallen warrior."
END IF
IF (cmd$ = "TAKE TREASURE") AND gottreasure = 0 AND r = 59 THEN
    gottreasure = 1
    PRINT "You have taken the Treasure."
END IF
IF (cmd$ = "TAKE SHIELD") AND gotshield = 0 AND r = 44 THEN
    gotshield = 1
    PRINT "You have the shield from the Battle of the Purge."
END IF
IF (cmd$ = "TAKE STATUE") AND gotstatue = 0 AND r = 62 THEN
    gotstatue = 1
    PRINT "You take the Statue of the serpent creature."
END IF
IF (cmd$ = "TAKE ORB OF LIFE") AND gotorboflife = 0 AND r = 31 THEN
    gotorboflife = 1
    PRINT "You have taken the Orb of Life. A feeling of power washes over you."
END IF
IF (cmd$ = "TAKE ORB OF DEATH") AND gotorbofdeath = 0 AND r = 53 THEN
    gotorbofdeath = 1
    PRINT "You have taken the Orb of Death. You feel a cold breeze brush past you."
END IF
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
IF (cmd$ = "EXIT CAVE WITH UNCLE" OR cmd$ = "LEAVE CAVE") AND gotdagger = 1 AND gothelmet = 1 AND gottreasure = 1 AND gotshield = 1 AND gotorboflife = 1 AND gotorbofdeath = 1 AND r = 70 THEN
    CLS
    GOTO win:
    DO: LOOP UNTIL INKEY$ = ""
    DO: LOOP UNTIL INKEY$ <> ""
END IF

moved:
RETURN

r1:
PRINT "________________________________________________________________________"
PRINT " You are standing in the cavern entrance to a foreign world. A cold gust"
PRINT " bellows up from beneath the surface of the Earth.                      "
PRINT "________________________________________________________________________"
RETURN

r2:
PRINT "________________________________________________________________________"
PRINT " As you walk deeper into the cave. You notice the light from the outside"
PRINT " world begin to dwindle and die. This place is equiped with lights. And "
PRINT " just as you begin your trek, you notice a MINER.                       "
PRINT "________________________________________________________________________"
RETURN

r3:
PRINT "________________________________________________________________________"
PRINT " Standing before you is the rocky world that makes up this place. A     "
PRINT " cloud of dust dances before you, as if it's alive.                     "
PRINT "________________________________________________________________________"
RETURN

r4:
PRINT "________________________________________________________________________"
PRINT " You hear rushing water and the faint odor of decaying flesh. As if     "
PRINT " someone forgot to take out the trash.                                  "
PRINT "________________________________________________________________________"
RETURN

r5:
PRINT "________________________________________________________________________"
PRINT " You are standing at a dead end. Nothing but a jagged stone wall.       "
PRINT "________________________________________________________________________"
RETURN

r6:
PRINT "________________________________________________________________________"
PRINT " A narrow tunnel. But you are not alone. You see a TROLL before you.    "
PRINT "________________________________________________________________________"
RETURN

r7:
PRINT "________________________________________________________________________"
PRINT " You are standing before what once was a large hall of some sort. Large "
PRINT " stone pillars hold up the mighty stone ceiling.                        "
PRINT "________________________________________________________________________"
RETURN

r8:
PRINT "________________________________________________________________________"
PRINT " You can only imagine just what took place in this once forgotten world."
PRINT "________________________________________________________________________"
RETURN

r9:
PRINT "________________________________________________________________________"
PRINT " The cold stone floor rings with your footsteps. Though there are others"
PRINT " within this place.                                                     "
PRINT "________________________________________________________________________"
RETURN

r10:
PRINT "________________________________________________________________________"
PRINT " In the distance you can hear others working and talking. In the hopes  "
PRINT " of finding something of value.                                         "
PRINT "________________________________________________________________________"
RETURN

r11:
PRINT "________________________________________________________________________"
PRINT " The nature of place seems to be like a step back in time. Everyone     "
PRINT " seems to be drawn to this place. As if they have been called.          "
PRINT "________________________________________________________________________"
RETURN

r12:
PRINT "________________________________________________________________________"
PRINT " One can not venture through this long forgotten world. It leaves you to"
PRINT " wonder just what the Doctor was doing here?                            "
PRINT "________________________________________________________________________"
RETURN

r13:
PRINT "________________________________________________________________________"
PRINT " You are standing upon a wide area, void of anything useful, or anyone. "
PRINT "________________________________________________________________________"
RETURN

r14:
PRINT "________________________________________________________________________"
PRINT " The echoes of your footsteps fill the room with a sense of life.       "
PRINT "________________________________________________________________________"
RETURN

r15:
PRINT "________________________________________________________________________"
PRINT " You are standing before the stone wall. A TROLL is also present.       "
PRINT "________________________________________________________________________"
RETURN

r16:
PRINT "________________________________________________________________________"
PRINT " You have the sense that something happened here. Something horrific    "
PRINT " took place here, maybe a sacrifice?                                    "
PRINT "________________________________________________________________________"
IF gotdagger = 0 THEN: PRINT "You see a Dagger resting on the ground. Covered in dust."
RETURN

r17:
PRINT "________________________________________________________________________"
PRINT " You feel the urge to scream. You feel that at any minute the world     "
PRINT " above will cave in upon you...cave fever...gotta love it!              "
PRINT "________________________________________________________________________"
RETURN

r18:
PRINT "________________________________________________________________________"
PRINT " You can swear that you hear a musical medley in the distance. Maybe a  "
PRINT " hiccup from a time long ago?                                           "
PRINT "________________________________________________________________________"
RETURN

r19:
PRINT "________________________________________________________________________"
PRINT " Everything seems to be quiet, almost at peace, and it makes you        "
PRINT " wonder just how long this place will stay until it's discarded?        "
PRINT "________________________________________________________________________"
RETURN

r20:
PRINT "________________________________________________________________________"
PRINT " You are standing in a barren room. No sign of life. Best be moving on. "
PRINT "________________________________________________________________________"
RETURN

r21:
PRINT "________________________________________________________________________"
PRINT " The mixed sounds of what sound like people running and screaming can   "
PRINT " be heard as a silent murmur.                                           "
PRINT "________________________________________________________________________"
RETURN

r22:
PRINT "________________________________________________________________________"
PRINT " The floor is unusually smooth to be made out of rock. Maybe there's    "
PRINT " something under it? Or maybe it's not rock afterall.                   "
PRINT "________________________________________________________________________"
RETURN

r23:
PRINT "________________________________________________________________________"
PRINT " The smell of something decaying in the area gives the air a sour odor. "
PRINT " You notice a man dressed up like a WIZARD stands before you.           "
PRINT "________________________________________________________________________"
RETURN

r24:
PRINT "________________________________________________________________________"
PRINT " The texture of the floor changes and seems more softer over here.      "
PRINT "________________________________________________________________________"
RETURN

r25:
PRINT "________________________________________________________________________"
PRINT " The air begin's to get warmer as you enter the room.                   "
PRINT "________________________________________________________________________"
RETURN

r26:
PRINT "________________________________________________________________________"
PRINT " Silence, nothing but silence. You are alone with your thoughts and it's"
PRINT " a wondrous thing.                                                      "
PRINT "________________________________________________________________________"
RETURN

r27:
PRINT "________________________________________________________________________"
PRINT " The ground beneath your feet is softer. As if it's dirt? But who would "
PRINT " bring dirt here?                                                       "
PRINT "________________________________________________________________________"
RETURN

r28:
PRINT "________________________________________________________________________"
PRINT " Strange...you swear, you just heard a bird chirping? But from where?   "
PRINT " The cave is beginning to play games with you.                          "
PRINT "________________________________________________________________________"
RETURN

r29:
PRINT "________________________________________________________________________"
PRINT " Being alone with your thoughts is a punishment at times...trying to    "
PRINT " answer the questions that you are asking yourself.                     "
PRINT "________________________________________________________________________"
IF gothelmet = 0 THEN: PRINT "You see what appears to be a Helmet, lodged within the wall."
RETURN

r30:
PRINT "________________________________________________________________________"
PRINT " The Earth beneath your feet seems soft, as if it has been watered?     "
PRINT "________________________________________________________________________"
Movecount = Movecount + 1
RETURN

r31:
PRINT "________________________________________________________________________"
PRINT " You see a small stream carving into the Earth. Expanding and making a  "
PRINT " new world for those to discover in the future.                         "
PRINT "________________________________________________________________________"
IF gotorboflife = 0 THEN: PRINT "Hovering off the ground. You see the Orb of Life."
RETURN

r32:
PRINT "________________________________________________________________________"
PRINT " Everything seems so alive. Is this why others go missing? Is there     "
PRINT " something about this place that drive others mad?                      "
PRINT "________________________________________________________________________"
RETURN

r33:
PRINT "________________________________________________________________________"
PRINT " You are standing before a dead end. A TROLL greets you in a manor that "
PRINT " makes you chuckle to yourself.                                         "
PRINT "________________________________________________________________________"
RETURN

r34:
PRINT "________________________________________________________________________"
PRINT " A cold draft passes by you. The sound of laughter echoes through the   "
PRINT " stone walls.                                                           "
PRINT "________________________________________________________________________"
RETURN

r35:
PRINT "________________________________________________________________________"
PRINT " As you travel through the long hall. You notice that the stone that    "
PRINT " encased the hall with a death grip. Vanishes and reveals an almost icy "
PRINT " make up.                                                               "
PRINT "________________________________________________________________________"
RETURN

r36:
PRINT "________________________________________________________________________"
PRINT " With every step you take within this underground new world. You feel   "
PRINT " your heart racing as you feel that your drawn to a great power.        "
PRINT "________________________________________________________________________"
RETURN

r37:
PRINT "________________________________________________________________________"
PRINT " The peaceful atmosphere that's confined to this part of the world      "
PRINT " washes over you.                                                       "
PRINT "________________________________________________________________________"
RETURN

r38:
PRINT "________________________________________________________________________"
PRINT " Laughter fills the chamber around you. It sounds like a child?         "
PRINT "________________________________________________________________________"
RETURN

r39:
PRINT "________________________________________________________________________"
PRINT " Your surroundings seem to take on the fashion of being from another    "
PRINT " age, another time perhaps. As if you've stepped back in time.          "
PRINT "________________________________________________________________________"
RETURN

r40:
PRINT "________________________________________________________________________"
PRINT " Before you know it, the room slowly changes from something one would   "
PRINT " see on an expedition to the Alps. Now it transforms into a stone crypt."
PRINT "________________________________________________________________________"
RETURN

r41:
PRINT "________________________________________________________________________"
PRINT " You are standing before a dark and twisted narrow tunnel. You feel as  "
PRINT " if you are being watched by someone.                                   "
PRINT "________________________________________________________________________"
RETURN

r42:
PRINT "________________________________________________________________________"
PRINT " You are standing before a long narrow tunnel. The faint lights give the"
PRINT " tunnel an almost dying feel to it. You notice though that you are not  "
PRINT " alone. A MINER is standing close by you.                               "
PRINT "________________________________________________________________________"
RETURN

r43:
PRINT "________________________________________________________________________"
PRINT " You feel as if the walls are closing in on you. The air is getting     "
PRINT " warmer and you feel as if you shouldn't be here.                       "
PRINT "________________________________________________________________________"
RETURN

r44:
PRINT "________________________________________________________________________"
PRINT " Placed before you stands a rocky dead end. As if a cave in happened    "
PRINT " here. Hopefully the Doctor wasn't a victim of natures hand?            "
PRINT "________________________________________________________________________"
IF gotshield = 0 THEN: PRINT "You notice a shield has been placed before your feet."
RETURN

r45:
PRINT "________________________________________________________________________"
PRINT " The everyday sounds of steel colliding with rock echoes onward. You    "
PRINT " see the glimmer of light catch on the steel from the pickaxe. A MINER  "
PRINT " is seen through the dust.                                              "
PRINT "________________________________________________________________________"
RETURN

r46:
PRINT "________________________________________________________________________"
PRINT " You are standing before a small chamber. The walls of this room, seem  "
PRINT " to be growing outward, as if the Earth is healing.                     "
PRINT "________________________________________________________________________"
RETURN

r47:
PRINT "________________________________________________________________________"
PRINT " Every so often, you come across the odd feeling of being watched. You  "
PRINT " hope that it's just a feeling, but what could be hiding in the darkness"
PRINT " of this hidden world?                                                  "
PRINT "________________________________________________________________________"
RETURN

r48:
PRINT "________________________________________________________________________"
PRINT " You find yourself standing before a lush valley. Everything, everything"
PRINT " so far has been normal. Tunnels of rock, the odd patch of dirt, and ice"
PRINT " that would one might expect. But a world within another world...just   "
PRINT " where are you?                                                         "
PRINT "________________________________________________________________________"
RETURN

r49:
PRINT "________________________________________________________________________"
PRINT " In the distance birds can be heard calling out to one another. Though  "
PRINT " you can't see them.                                                    "
PRINT "________________________________________________________________________"
RETURN

r50:
PRINT "________________________________________________________________________"
PRINT " You are walking up a path to a small hill. Hopefully exposing more of  "
PRINT " this world before you.                                                 "
PRINT "________________________________________________________________________"
RETURN

r51:
PRINT "________________________________________________________________________"
PRINT " A gust of wind passes by you. You wonder how is that possible?         "
PRINT "________________________________________________________________________"
RETURN

r52:
PRINT "________________________________________________________________________"
PRINT " You look around this massive pocket of time hidden from reality. You   "
PRINT " notice leaning against a tree stands a SKELETON. Almost placed there   "
PRINT " by someone as a cruel joke.                                            "
PRINT "________________________________________________________________________"
RETURN

r53:
PRINT "________________________________________________________________________"
PRINT " You are standing before a dried up river bed. It's been dry for awhile,"
PRINT " the ground is hard as a rock.                                          "
PRINT "________________________________________________________________________"
IF gotorbofdeath = 0 THEN: PRINT "Lying on the dried river bed is the Orb of Death."
RETURN

r54:
PRINT "________________________________________________________________________"
PRINT " You are on a gravel path. You expect to see a runner or two.           "
PRINT "________________________________________________________________________"
RETURN

r55:
PRINT "________________________________________________________________________"
PRINT " You swear, that you can smell something cooking...the smell from a BBQ?"
PRINT "________________________________________________________________________"
RETURN

r56:
PRINT "________________________________________________________________________"
PRINT " This world seems to hold you in it's odd yet dangerous grip.           "
PRINT "________________________________________________________________________"
RETURN

r57:
PRINT "________________________________________________________________________"
PRINT " You are standing before a vast cliff. That looks over an ocean shore.  "
PRINT "________________________________________________________________________"
RETURN

r58:
PRINT "________________________________________________________________________"
PRINT " A cluster of large boulders are scattered around the land. A TROLL     "
PRINT " is seen a few feet off the path.                                       "
PRINT "________________________________________________________________________"
RETURN

r59:
PRINT "________________________________________________________________________"
PRINT " You are standing before a dead end. Large boulders block you from the  "
PRINT " cliff. Probably for the best.                                          "
PRINT "________________________________________________________________________"
IF gottreasure = 0 THEN: PRINT "You notice a small open box. Holding what appears to be Treasure."
RETURN

r60:
PRINT "________________________________________________________________________"
PRINT " You are standing before the entrance to a forest.                      "
PRINT "________________________________________________________________________"
RETURN

r61:
PRINT "________________________________________________________________________"
PRINT " The forest seems to be sterile in a way. No sign of animal life, no    "
PRINT " insects of anykind, and a strange silence.                             "
PRINT "________________________________________________________________________"
RETURN

r62:
PRINT "________________________________________________________________________"
PRINT " The trees start to spread out and you are upon the weaker side of the  "
PRINT " tree line.                                                             "
PRINT "________________________________________________________________________"
IF gotstatue = 0 THEN: PRINT "Placed within the branches of a tree rests a gold Statue."
RETURN

r63:
PRINT "________________________________________________________________________"
PRINT " You are standing before a field with knee high grass covering the land."
PRINT "________________________________________________________________________"
RETURN

r64:
PRINT "________________________________________________________________________"
PRINT " The wind begin's to pick up as you are coming up to a cliff.           "
PRINT "________________________________________________________________________"
RETURN

r65:
PRINT "________________________________________________________________________"
PRINT " The sounds of the waves crashing into the shore. You look off into the "
PRINT " distance and can't find an end to the sea beneath the Earth.           "
PRINT "________________________________________________________________________"
RETURN

r66:
PRINT "________________________________________________________________________"
PRINT " You make your way down an old trail. Crafted by those who came before  "
PRINT " you. The mind wanders through hundreds of question but with no answers."
PRINT "________________________________________________________________________"
RETURN

r67:
PRINT "________________________________________________________________________"
PRINT " You are now standing between the realm of the living and the dead.     "
PRINT "________________________________________________________________________"
RETURN

r68:
PRINT "________________________________________________________________________"
PRINT " You have entered once again a room made up of carved out stone. Taking "
PRINT " a moment, you spot a TROLL in the area.                                "
PRINT "________________________________________________________________________"
RETURN

r69:
PRINT "________________________________________________________________________"
PRINT " There in the distance...you see a strange glow up ahead.               "
PRINT "________________________________________________________________________"
RETURN

r70:
PRINT "________________________________________________________________________"
PRINT " You are standing in a large room, maybe a crypt of somekind? That's    "
PRINT " beyond the point. You have just found your UNCLE. For the time being   "
PRINT " you feel a sense of joy.                                               "
PRINT "________________________________________________________________________"
RETURN

win:
COLOR 2, 0
CLS
PRINT "Your adventure is now complete. With everything that you had witnessed, the"
PRINT "treasures that you have collected will do a great wonder for the research of"
PRINT "those who came before us. This race that lived beneath the surface of this"
PRINT "world. There is much more discoveries to be made. But, that's for another time."
PRINT "Go home and rest, you've earned it, and with that tomorrow is always another"
PRINT "Adventure."
PRINT ""
PRINT ""
PRINT "-----------------------------------------------------------------------------------"
PRINT "Thank you for playing"
PRINT
PRINT "-Underground Adventure-"
PRINT ""
PRINT "Written by D.B. Taylor"

DO: LOOP UNTIL INKEY$ <> ""
END

gameover:
COLOR 2, 0
CLS
PRINT "You don't waste a moment, as you lunge forward and strangle the so called"
PRINT "Wizard. But after you take his life, you get up, and trip over a rock."
PRINT "Which causes you to fall to the ground and hit your head on the hard cold"
PRINT "ground. You die from your wounds...pity."
PRINT
DO: LOOP UNTIL INKEY$ <> ""
END

gameover1:
COLOR 2, 0
CLS
PRINT "You look around and seeing that your Uncle's weak from his wounds. You"
PRINT "decide that what you've discovered within this walls is more important"
PRINT "then anything or anyone. You slowly stand up and make your way back into"
PRINT "world below. In the hopes of feeding the greed within."
PRINT ""
PRINT "Game Over..."
PRINT
DO: LOOP UNTIL INKEY$ <> ""
END

gameover2:
COLOR 2, 0
CLS
PRINT "Looking around quickly, you see that the coast is clear. You quickly"
PRINT "lunge forward and begin choking the troll to no end. She let's out a"
PRINT "scream which draws the attention of the Lubok. Before you know it, you"
PRINT "are torn to bits. Pity...you were always such a good guy."
PRINT ""
PRINT "Game Over..."
PRINT
DO: LOOP UNTIL INKEY$ <> ""
END

gameover3:
COLOR 2, 0
CLS
PRINT "Not wanting to miss a moment, you punch the Troll in the face, this"
PRINT "causes it to cry in pain. You pick up a rock and finish off the foul"
PRINT "oddity. Before you leave the room and return to being the innocent"
PRINT "person you pretend to be. The Lubok hunts you down and ends your life."
PRINT ""
PRINT "Game Over..."
PRINT
DO: LOOP UNTIL INKEY$ <> ""
END

gameover4:
COLOR 2, 0
CLS
PRINT "With blood on your hands. You don't know what came over you. But it's"
PRINT "to late for dwelling on the past. You wonder just why you snapped like"
PRINT "that?"
PRINT ""
PRINT "Game Over..."
PRINT
DO: LOOP UNTIL INKEY$ <> ""
END

gameover5:
COLOR 2, 0
CLS
PRINT "Before long, you blackout, and awaken in a barrel filled with water."
PRINT "You look around and find a strange creature in the corner. It sounds"
PRINT "as if it's crying...or laughing. It's the Lubok...all is lost..."
PRINT ""
PRINT "Game Over..."
PRINT
DO: LOOP UNTIL INKEY$ <> ""
END

gameover6:
COLOR 2, 0
CLS
PRINT "You crush the skull of the pestering Troll. That'll teach it for not"
PRINT "looking you in the eye's. Before long, you feel that someone or something"
PRINT "is watching you. While in the dark it plunges it's blade in your back."
PRINT "That Troll had a friend...pity."
PRINT ""
PRINT "Game Over..."
PRINT
DO: LOOP UNTIL INKEY$ <> ""
END

gameover7:
COLOR 2, 0
CLS
PRINT "Without a moment to spare, you pickup a rock from the ground, and club"
PRINT "the miner in the back of the head. They fall to the ground and a pool"
PRINT "of blood begin's to form around their skull. You can't live with what"
PRINT "you've done. You wander the cave system till you fade away from the living."
PRINT ""
PRINT "Game Over..."
PRINT
DO: LOOP UNTIL INKEY$ <> ""
END

gameover8:
COLOR 2, 0
CLS
PRINT "Was it worth it? How did it feel to take a life? Now how will you flee"
PRINT "this place? You will be haunted for eternity. Hope it was worth it?"
PRINT ""
PRINT "Game Over..."
PRINT
DO: LOOP UNTIL INKEY$ <> ""
END

gameover9:
COLOR 2, 0
CLS
PRINT "The Miner never saw it coming. Wonderful, you think to yourself. But"
PRINT "the celebration is cut short. You hear others coming for you. They know"
PRINT "what you did. Gunshots fill the air, it's not long until they hunt you"
PRINT "down and end your life."
PRINT ""
PRINT "Game Over..."
PRINT
DO: LOOP UNTIL INKEY$ <> ""
END

FUNCTION GrabInput$
x = POS(0)
y = CSRLIN
maxwidth = _WIDTH - x
PCOPY 0, 1 'make a backup copy of the screen

DO
    k = _KEYHIT
    i$ = INKEY$
LOOP UNTIL k = 0 AND INKEY$ = "" 'clear the keyboard buffer

DO
    _LIMIT 30
    PCOPY 1, 0
    LOCATE y, x: PRINT Userinput$

    k = _KEYHIT
    SELECT CASE k
        CASE 8
            Userinput$ = LEFT$(Userinput$, LEN(Userinput$) - 1)
        CASE 65 TO 90, 97 TO 122, 32
            Userinput$ = UCASE$(Userinput$ + CHR$(k))
    END SELECT

    timerleft## = (DOOM - TIMER(0.001))
    minutes = timerleft## \ 60
    seconds = timerleft## - minutes * 60
    LOCATE 2, 32: PRINT USING " ###:##.###"; minutes, seconds
    IF timerleft## <= 0 THEN GOTO doomed
    _DISPLAY

LOOP UNTIL k = 13
GrabInput$ = Userinput$
_AUTODISPLAY
EXIT FUNCTION

doomed:
CLS
PRINT "You were unable to reach your Uncle in time and he dies from his wounds."
PRINT "You decide it to be best that you leave the caves. You return home and"
PRINT "decide that what you've been doing was a waste of time. You spend the rest"
PRINT "of your days in the woods. Wondering what could've been."
_DISPLAY
END
END SUB